class apropos () =
  let aproposbox = GWindow.about_dialog
    ~authors:["Sebastien Crozet (<sebcrozet@gmail.com>)";
           "Antoine Ch. de Cevins (<antoine.decevins@gmail.com>)";
           "Benjamin Roux (<stuart.benji@gmail.com>)";
           "Alexis Cellier (<kernelserror@gmail.com>)"]
   ~copyright:"Copyright 2010-2011 Progeo"
   ~license:"GNU General Public License v3"
   ~version:"1.0"
   ~website:"http://progeo-project.com/"
   ~website_label:"Progeo Website"
   ~position:`CENTER
    ~destroy_with_parent:true ()
  in
object

  method get_box () =
    ignore (aproposbox#run ());
    aproposbox#misc#hide ()
end

(* Fonction a appeller pour obtenir la fenetre 'A propos' *)
let get_apropos_box () =
  let box = new apropos () in
    box#get_box ()
